home *** CD-ROM | disk | FTP | other *** search
/ GBL 1 / GBL 1.iso / menu / gifv.slk < prev    next >
Encoding:
Text File  |  1993-02-17  |  914 b   |  42 lines
  1. ;
  2. ; GIFV.SLK
  3. ; This script shows the GIFV.SLJ with DEBUG-ON at the top of the :GOSUB-HERE
  4. ; routine. This command shows you a step by step trace of your script file!
  5. ; notice that before the subroutine ends, the DEBUG-OFF command is issued.
  6. ; this is so that the REST of the Script file doesn't get traced too!
  7. ;
  8.         change-path f:\*.gif
  9. :loop
  10.         loadnext :exit
  11.         gosub :gosub-here
  12.         goto :loop
  13. :gosub-here
  14.         DEBUG-ON
  15. ;
  16. ; Here is my routine to increase RED a 20 times and
  17. ; then increase blue 20 times then it resets the colors
  18. ;
  19.         set v1 1
  20. :more-red
  21.         more-red
  22.  
  23. redraw
  24.  
  25.         set v1 +
  26.         if v1=20 :NoMoreRed
  27.         goto :more-red
  28. :NoMoreRed
  29.         set v1 1
  30. :more-blue
  31.         more-blue
  32.         set v1 +
  33.         if v1=20 :NoMoreblue
  34.         goto :more-blue
  35. :NoMoreBlue
  36.         reset-colors
  37.         DEBUG-OFF
  38. sub-end
  39. :exit
  40.  
  41.  
  42.